home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SDATE < prev    next >
Text File  |  1994-12-13  |  199b  |  5 lines
  1. SDATE: procedure;arg da,mo
  2.   da=substr(da,12,4)right(index('ANEBARPRAYUNULUGEPCTOVEC',substr(da,9,2))%2+1,2,'0')right(strip(substr(da,5,2)),2,'0')
  3.   if mo='I' then return date('i',da,'s')
  4.  return da
  5.